<%
Dim conn,start_time
start_time=timer()
Set conn = Server.CreateObject("ADODB.CONNECTION")
db = "Provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("data\data.mdb")&";Jet OLEDB:Database Password=tp@chenkai"
conn.Open db
%>
